## This file makes the truth table of the democracy example

data(LM)  # data from the QCA package, formatted for their function
tt <- truthTable(LM, outcome="SURV", conditions=colnames(LM)[1:4])
tab <- kable(tt$tt[, 1:7], format = "latex", booktabs = TRUE, 
      col.names=c("Wealth", "Urbanization", "Literacy", "Industrialization", "Outcome", "n", "Consistency"))
write(tab, file="tables/truth_table_full.tex")
